Namespace Core
  Public Class ProgressEventArgs
    Inherits EventArgs

    Private mValue As Integer
    Private mMessage As String

    Sub New(ByVal value As Integer)
      mValue = value
    End Sub

    Sub New(ByVal message As String)
      mMessage = message
    End Sub

    Sub New(ByVal value As Integer, ByVal message As String)
      mValue = value
      mMessage = message
    End Sub

    ReadOnly Property Value() As Integer
      Get
        Return mValue
      End Get
    End Property

    ReadOnly Property Message() As String
      Get
        Return mMessage
      End Get
    End Property
  End Class
End Namespace